home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / AIMNET.CMD < prev    next >
Encoding:
Text File  |  1996-02-19  |  4.2 KB  |  49 lines
  1. # SPECIAL THANKS TO JOHN NAVAS, AIMNET CUSTOMER, FOR SUPPLYING THIS 
  2. # LOGIN SCRIPT!!!
  3. #
  4. # LOGIN.CMD - automatic login script for Trumpet Winsock, featuring:
  5. # * automatic "attack" redialing on failure to connect (e.g., BUSY)
  6. #   or failure to login properly
  7. # * the ability to automatic try dialing multiple phone numbers in a
  8. #   "rotary" dialing queue
  9. # * separate dial "prefix" and "suffix" codes (e.g., for traveling
  10. #   and/or credit card dialing)
  11. # * works with modem initialized with &D1 or &D2
  12. # Configured for PPP protocol with Aimnet
  13.  
  14. ### control variables
  15. $dialcmd = "ATDT"          # modem dial command
  16. $userprompt = "login:"     # login prompt
  17. $passprompt = "assword:"   # password prompt
  18. $protocol = "PPP session"  # protocol prompt
  19. %attempts = 100            # maximum number of dial attempts
  20. %pause = 2                 # seconds between dial attempts
  21.  
  22. ### setup strings for dialing
  23. if ![load $modemsetup]
  24.   if [query $modemsetup "Enter your modem setup string (no AT or CR)"]
  25.     save $modemsetup
  26.   end
  27. end
  28. if ![load $prefix]
  29.   if [query $prefix "Enter your dial prefix, if any (e.g., '9,')"]
  30.     save $prefix
  31.   end
  32. end
  33. if ![load $number]
  34.   if [query $number "Enter your phone number(s), sep. by spaces"]
  35.     save $number
  36.   end
  37. end
  38. if ![load $suffix]
  39.   if [query $suffix "Enter your dial suffix, if any (e.g., ',,,,,')"]
  40.     save $suffix
  41.   end
  42. end
  43. if ![load $username]
  44.   if [query $username "Enter your login username"]
  45.     save $username
  46.   end
  47. end
  48. if ![load $password]
  49.